home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Scripts / CopyExec next >
Encoding:
Text File  |  1992-11-08  |  228 b   |  12 lines  |  [TEXT/MPS ]
  1. #
  2. # MPW Shell script to select the current line iff the current
  3. # selection is empty (i.e. is the insertion point).
  4. #
  5. If "{1}" == ""
  6.   Set 1 "{Target}"
  7. End
  8. If ¬`Count -c "{1}.§"`
  9.   Find `Position -l "{1}"` "{1}"
  10. End
  11. Cat "{1}.§"
  12.